home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 05.zip / BS1 part 5 / BaudBandit.adf / REXX / DeComp.baud < prev    next >
Text File  |  1992-02-24  |  576b  |  32 lines
  1. /* BB Auto Decompress example */
  2.  
  3. Options Results
  4. parse arg dest
  5.  
  6. Status D
  7. dir=Result
  8.  
  9. /* strip path from file */
  10. parse var dest temp'/'name
  11. if name='' then parse var dest temp':'name
  12.  
  13. /* get file extension */
  14. parse var name temp'.'ext
  15. ext=Upper(ext)
  16.  
  17. arcmd=''
  18. if ext='ARC' then arcmd='Arc <* x'
  19. if ext='ZOO' then arcmd='Zoo <* x'
  20. if ext='LZH' then arcmd='LZ <* x'
  21. if ext='LHA' then arcmd='LZ <* x'
  22. if ext='ZIP' then arcmd='UnZip <*'
  23. if ext='DMS' then arcmd='DMS <* WRITE'
  24.  
  25. if arcmd='' then do
  26.     say 'Unknown archive type'
  27.     exit
  28. end
  29.  
  30. Address command 'CD' dir||'a'x arcmd dest
  31.  
  32.